home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Applications / UIFlow 1.0.1 / UIFlow Source / CFDFront / TOptDimension.cp < prev    next >
Encoding:
Text File  |  1992-02-21  |  1.5 KB  |  45 lines  |  [TEXT/MPS ]
  1. #pragma segment MenuOption
  2. //*********************************************************************************
  3. //    TOptDimension - Methods
  4. //        inherits all methods and vars from TDialogView
  5. //        overrides method : DoChoice
  6. //*********************************************************************************
  7. //------------------------------------------------------------------------------------------
  8. //    TOptDimension IOptDimension Method... Implementation
  9. //        initialize the dialog window......
  10. //------------------------------------------------------------------------------------------
  11. pascal void TOptDimension::IOptDimension(const short dialogID)
  12.     {
  13.     if (qdbug == 1)
  14.         {
  15.         char x[255];
  16.         sprintf(x,"Intializing TOptDimension");
  17.         StringPtr dText = c2pstr(x);
  18.     
  19.         TEditText *buggy = (TEditText *)dbWindow->FindSubView('dbug');
  20.         buggy->SetText(dText,kRedraw);
  21.         }
  22.         
  23.     aWindow = NewTemplateWindow(dialogID, NULL);
  24.     aWindow->Open();
  25.     }
  26.  
  27. //------------------------------------------------------------------------------------------
  28. //    TOptDimension DoChoice Method... Implementation
  29. //------------------------------------------------------------------------------------------
  30. pascal void TOptDimension::DoChoice(TView */*origView*/, short /*itsChoice*/)
  31.     {
  32.     if (qdbug == 1)
  33.         {
  34.         char x[255];
  35.     
  36.         sprintf(x,"TOptDimension::DoChoice");
  37.         StringPtr dText = c2pstr(x);
  38.         TEditText *buggy = (TEditText *)dbWindow->FindSubView('dbug');
  39.         buggy->SetText(dText,kRedraw);
  40.         }
  41.         
  42. //    inherited::DoChoice(origView,itsChoice);
  43.     }
  44.     
  45.